home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
VQPFILM.S
< prev
Wrap
Text File
|
1993-03-27
|
2KB
|
54 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;*------------------------------------------------------------------------
globl _vqp_filmname
_vqp_filmname:
; .cargs #8,handle.w,index.w,namestr.l
handle = 8
index = 10
namestr = 12
link a6,#-52 ;* Allocate intout[26].
; VContrl #5,#92,,#1
move.w handle(a6),-(sp) ; contrl[6]
move.w #92,-(sp) ; contrl[5]
clr.w -(sp) ; contrl[4]
move.w #1,-(sp) ; contrl[3]
subq.l #2,sp ; contrl[2]
clr.w -(sp) ; contrl[1]
move.w #5,-(sp) ; contrl[0]
subq.l #4,sp ;* -> ptsout
pea -68(a6) ;* -> intout
subq.l #4,sp ;* -> ptsin
pea index(a6) ;* -> intin
pea 16(sp) ;* -> contrl
move.l sp,d1
jsr vditrap
lea 20(sp),sp ;* clean off vdipb groodah.
lea -52(a6),a0 ;* Pointer to intout.
move.l namestr(a6),a1 ;* Pointer to caller's string.
move.w 8(sp),d0 ;* load contrl[4]: outstr length.
beq punt ;* if zero, no string to return.
strloop:
move.w (a0)+,d1 ;* Return normal string from
move.b d1,(a1)+ ;* intout[0-24]. Copy low byte of
subq.w #1,d0 ;* decrement string count.
bne.b strloop ;* each word to string byte.
clr.b (a1) ;* force nullterm onto string.
punt:
move.w 8(sp),d0 ;* retval is contrl[4].
unlk a6
rts
end